home *** CD-ROM | disk | FTP | other *** search
/ Programming Microsoft Visual Basic .NET / Programming Microsoft Visual Basic .NET (Microsoft Press)(X08-78517)(2002).bin / setup / vbnet / 25 user and custom controls / customcontrolsdemo / webform1.aspx.vb < prev    next >
Encoding:
Text File  |  2002-03-19  |  1.7 KB  |  37 lines
  1. Public Class WebForm1
  2.     Inherits System.Web.UI.Page
  3.     Protected WithEvents FirstControl1 As CustomControlLibrary.FirstControl
  4.     Protected WithEvents ComboBoxEx1 As CustomControlLibrary.ComboBoxEx
  5.     Protected WithEvents NavigateRibbon1 As CustomControlLibrary.NavigateRibbon
  6.     Protected WithEvents Multiplier1 As CustomControlLibrary.Multiplier
  7.     Protected WithEvents MultiplierEx1 As CustomControlLibrary.MultiplierEx
  8.     Protected WithEvents lblPageNumber As System.Web.UI.WebControls.Label
  9.     Protected WithEvents lblSelIndex As System.Web.UI.WebControls.Label
  10.     Protected WithEvents TableControl1 As CustomControlLibrary.TableControl
  11.  
  12. #Region " Web Form Designer Generated Code "
  13.  
  14.     'This call is required by the Web Form Designer.
  15.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  16.  
  17.     End Sub
  18.  
  19.     Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
  20.         'CODEGEN: This method call is required by the Web Form Designer
  21.         'Do not modify it using the code editor.
  22.         InitializeComponent()
  23.     End Sub
  24.  
  25. #End Region
  26.  
  27.     ' update the page number when the NavigateRibbon control is clicked
  28.  
  29.     Private Sub NavigateRibbon1_PageChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles NavigateRibbon1.PageChanged
  30.         lblPageNumber.Text = "Page # is " & NavigateRibbon1.PageNumber.ToString
  31.     End Sub
  32.  
  33.     Private Sub ComboBoxEx1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBoxEx1.SelectedIndexChanged
  34.         lblSelIndex.Text = "SelectedIndex is " & ComboBoxEx1.SelectedIndex.ToString
  35.     End Sub
  36. End Class
  37.